home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 1
/
your choice.zip
/
your choice
/
OS2
/
AM4PM
/
RECORD.AMC
< prev
next >
Wrap
Text File
|
1993-07-12
|
1KB
|
41 lines
/*********************************************************************/
/* RECORD.AMC - Do a recording of a message */
/* *//* This program is called by AM4PM.EXE. */
/* *//* Input: arg(1) Name of the file to record */
/* *//* Output: 0 Normal. Only AT+VLS=0 is done before waiting */
/* 1 Full init. Reinit COM-port and everything. */
/* 2 Terminate AM4PM. */
/* *//*********************************************************************/
CALL AMDPrint 'RECORD.AMC('arg(1)') started'
CALL AMSetLastEventText 'Record'
AMSendW('AT+VTS=[800,0,12]')
CALL AMSetStateText 'Recording message' arg(1)
AMSendW('AT+VLS=8') /* 2 = telco line, 8 = external mic */
CrntMFile=AMOpenRecFile()
CALL AMStartRec(1) /* 1 = CELP, 2 = ADPCM2, 3 = ADPCM3 */
DLECode=AMWaitDLECode()
CALL AMEndRec
CALL AMCloseRecFile
select
when DLECode='!' then
do
'del' CrntMFile
end
otherwise
do
'copy' CrntMFile arg(1)
'del' CrntMFile
end
end
Exit 0